home *** CD-ROM | disk | FTP | other *** search
/ Roujin Z / Roujin Z.iso / mac / Roujin Z 8Bit PM / Roujin Z 8Bit PM.dxr / 00068.ls < prev    next >
Encoding:
Text File  |  1996-03-12  |  706 b   |  27 lines
  1. on mouseDown
  2.   global choice, moviedur, movieName
  3.   puppetSound("click down")
  4.   set start to the castNum of sprite the clickOn
  5.   repeat with variable = 1 to 1
  6.     set wait to the ticks + 1
  7.     updateStage()
  8.     repeat while the ticks < wait
  9.     end repeat
  10.   end repeat
  11.   repeat while the stillDown
  12.   end repeat
  13.   puppetSound("click up")
  14.   set start to the castNum of sprite the clickOn
  15.   repeat with variable = 1 to 1
  16.     set wait to the ticks + 1
  17.     updateStage()
  18.     repeat while the ticks < wait
  19.     end repeat
  20.   end repeat
  21.   set the timeoutScript to "timeoutProcedure"
  22.   startmytimer(moviedur / 60)
  23.   set movieName to "roujin2.mov"
  24.   set moviedur to the duration of cast movieName
  25.   go("roujin2")
  26. end
  27.